﻿Public Class Form1

  Private Sub Form1_Load(ByVal sender As Object, _
          ByVal e As System.EventArgs) _
          Handles Me.Load
    Form2.Show()
    Form3.Show()
    Form4.Show()
    Dim frm As Windows.Forms.Form
    Dim messaggio As String = ""
    For Each frm In My.Application.OpenForms
      messaggio &= frm.ToString & _
          Environment.NewLine
    Next
    MessageBox.Show(messaggio)
  End Sub

End Class
